package Template5::Client::TemplatePool;

sub new()
{
	my $class = shift;
	my $this  = {};

	return bless($this, $class); 
};

sub get($)
{
	my $this   = shift;
	my $key    = shift;
	my $retVal = undef;
	
	if(exists($this->{$key}))
	{
		$retVal = $this->{$key};
	};
	
	return $retVal;
};

sub set($$)
{
	my $this  = shift;
	my $key   = shift;
	my $value = shift;
	
	$this->{$key} = $value;
};

sub DESTROY
{
	my $this = shift;
	
	foreach my $key (keys(%{$this}))
	{
		$this->{$key}->delete();
	};
};

1;

